1 PRINT"":POKE53281,0:POKE53280,7:A=0
2 PRINT"":FORU=1TO300:NEXTU:GOTO50
3 PRINT"[159]":FORU=1TO300:NEXTU:GOTO50
4 PRINT"[156]":FORU=1TO300:NEXTU:GOTO50
5 PRINT"":FORU=1TO300:NEXTU:GOTO50
6 PRINT"":FORU=1TO300:NEXTU:GOTO50
7 PRINT"[158]":FORU=1TO300:NEXTU:GOTO50
8 PRINT"[149]":FORU=1TO300:NEXTU:GOTO50
9 PRINT"[152]":FORU=1TO300:NEXTU:GOTO50
50 PRINT:PRINT"[147]":PRINT:PRINT:PRINT
55 PRINT"               [175][175][175][175][175][175][175][175][175][175]"
60 PRINT"              [182]PSYCHOTEST[181]"
70 PRINT"         [175][210][198][195][196][197][183][183][183][183]II[183][183][183][183][197][196][195][198][210][175]"
80 PRINT"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
90 PRINT"         [180]WRITTEN BY MR.JOKER![170]"
100 PRINT"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
110 PRINT"         [180]WRITTEN IN 1990 ....[170]"
120 PRINT"         [180]BELEIDIGUNGSTEST UND[170]"
130 PRINT"         [180]PSYCHOTEST II !!!!!![170]"
140 PRINT"         [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
145 A=A+1:IFA=7 THEN GOTO170
150 CL=INT(8*RND(1))+1
160 ONCL GOTO 2,3,4,5,6,7,8,9
170 FORX=1TO1000:NEXTX
180 PRINT"[147]":PRINT""
190 PRINT:PRINT" DIESES IST DIE VORTSAETZUNG"
200 PRINT:PRINT" DES CHAOTISCHEN PSYCHOTESTS."
210 PRINT:PRINT" MACHT EUCH BEREIT AUF EINE"
220 PRINT:PRINT" WEITERE VERARSCHUNG."
230 PRINT:PRINT" ANTWORTET MIT [J] FUER JA"
240 PRINT:PRINT" UND MIT [N] FUER NEIN."
250 PRINT:PRINT:PRINT" NACH DEM GESPRAECH MIT DEM"
260 PRINT:PRINT" COMPUTER WIRST DU EIN"
270 PRINT:PRINT" GANZ PERSOENLICHES"
280 PRINT:PRINT" ENDERGEBNIS UEBER DICH"
290 PRINT:PRINT" HOEREN.  VIEL SPASS!"
300 GETA$:IFA$=""THEN300
310 PRINT"[147]"
320 PRINT:PRINT" JETZT STELLE ICH DIR EINEN HAUFEN"
330 PRINT:PRINT" BLOEDER FRAGEN ,OK?
340 [129]X[178]1[164]1500:[130]X
350 [153]:[153]" ES GEHT LOS!"
360 [129]X[178]1[164]1000:[130]X
370 [153]"LOAD"
380 [153]:[133]" WIE HEISST DU";QW$
390 [153]"LOAD ":[133]" WIE ALT BIST DU";WE$
400 [153]"LOAD ":[133]" WIE GROSS BIST DU (CM)";ER$
410 [153]"LOAD":[153]" JETZT WIRD ES PEINLICH!!!!"
420 [129]X[178]1[164]1000:[130]X
430 [153]:[153]" ABER NICHT FUER MICH!":[129]X[178]1[164]400:[130]X
440 [153]:[153]" SONDERN FUER DICH!!!!!!!!!":[129]X[178]1[164]900:[130]X
450 [153]"LOAD ":[153]" GIEB'S ZU ";QW$;"! HAST DU DIR HEUTE"
460 [153]:[153]" SCHON DIE ZAEHNE GEPUTZT?"
470 [161]B$:[139]B$[178]""[167]470
480 [139] B$[178]"N"[167][137]500
490 [137]540
500 [153]"LOAD ":[153]" DAS KANNST DU MIT ";WE$;" JA AUCH"
501 [153]:[153]" NOCH NICHT,NE?DU ELENDER SAEUGLING DU!"
510 [153]:[153]" AUF DASS DIR DIE ZAEHNE ZERFAUELN DU"
511 [153]:[153]" FAULE SAU!":[137]550
540 [153]:[153]"WENN ICH RAUSKRIEG,DASS DU GELOGEN HAST!"
550 [161]A$:[139]A$[178]""[167]550:[153]"LOAD "
560 [151]53281,5:[153]"LOADSTOP"
570 [153]:[153]" JETZT KOMMEN JA+NEIN FRAGEN!
580 PRINT:PRINT" KANNST DU GITARRE SPIELEN?"
590 GETC$:IFC$=""THEN590
600 PRINT:PRINT" WOHNST DU IM GULLI?"
610 GETD$:IFD$=""THEN610
620 PRINT:PRINT" HAST DU BLAEHUNGEN?"
630 GETE$:IFE$=""THEN630
640 IFE$="J"THEN PRINT:PRINT" RIECHT MAN.ODER IST DAS DEIN":PRINT" MUNDGERUCH?"
650 PRINT:PRINT" HAST DU EIN GEHIRN?"
660 GETF$:IFF$=""THEN660
670 IFF$="J" THEN PRINT:PRINT" NICHT ZU FASSEN!"
680 IFF$="N" THEN PRINT:PRINT" KONNTE ICH MIR GLEICH DENKEN."
690 PRINT:PRINT" IST DAS DEIN POPEL,DER DA AUF DEM "
700 PRINT:PRINT" MONITOR KLEBT?"
710 GETG$:IFG$=""THEN710
720 IFG$="J"THEN PRINT:PRINT" MACH DEN SOFORT DA WEG!!!!"
730 PRINT:PRINT" HAST DU EINEN EIERKOPF?"
740 GETH$:IFH$=""THEN740
750 PRINT:PRINT" BIST DU EIN TRINKER?"
760 GETI$:IFI$=""THEN760
770 IFI$="N"THEN PRINT:PRINT" KANNST DU ECHT OHNE ALKOHOL LEBEN?????"
780 PRINT:PRINT" HAST DU EINEN KAMM?"
790 GETJ$:IFJ$=""THEN790
800 IFJ$="J"THEN PRINT:PRINT" DANN KAEMM DICH MAL"
810 IFJ$="N"THEN PRINT:PRINT" DAS SIEHT MAN!!!!"
820 FORX=1TO1000:NEXTX:POKE53281,3:POKE53280,13:PRINT""
830 PRINT"                                        "
840 FORX=1TO2000:NEXTX:POKE53280,15:PRINT"[144]"
850 PRINT"[147]":POKE53281,11
860 PRINT:PRINT" ERGEBNIS NR.1"
870 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184]"
880 PRINT:PRINT" VON ";QW$;"     ALTER:ANGEBLICH ";WE$
890 PRINT:PRINT" ";QW$;" IST ";ER$;"CM GROSS,"
900 IFB$="N" THEN PRINT:PRINT" UND WIRD IN 1 JAHR EIN GAMMELGEBISS"
910 IFB$="N" THEN PRINT:PRINT" WIE EIN NILPFERD HABEN."
920 PRINT:PRINT" ";QW$;" IST SEHR,SEHR,SEHR"
930 IFC$="J"THEN PRINT:PRINT" ,SEHR MUSIKBESCHAEDIGT,"
940 IFC$="N"THEN PRINT:PRINT" UNMUSIKALISCH,"
950 IFD$="J"THEN PRINT:PRINT" UND WOHNT IM GULLI NEBEN HILMAR."
960 IFD$="N"THEN PRINT:PRINT" UND WOHNT NICHT MAL IM GULLI."
970 IFD$="J"THEN PRINT:PRINT" DER GULLI GEHT JA ABER HILMAR!!!"
980 IFB$="N" AND D$="J" AND H$="J" AND J$="N" AND E$="J" THEN GOTO1300
990 IFB$="J" AND F$="N" AND D$="J" AND J$="J" THEN GOTO1310
1000 IFC$="J" AND D$="N" AND F$="J" AND H$="J" THEN GOTO1320
1010 IFC$="N" AND F$="N" AND J$="N" AND G$="J" THEN GOTO1330
1020 IFD$="J" AND E$="J" AND F$="N" AND H$="J" AND J$="N" THEN GOTO1340
1030 IFC$="J" AND F$="J" AND H$="N" AND I$="J" THEN GOTO1350
1040 IFC$="J" AND D$="N" AND E$="N" AND F$="N" AND I$="J" AND J$="J" THEN1360
1050 IFC$="J" AND D$="J" AND E$="J" AND I$="J" AND J$="N"THEN GOTO1370
1060 GOTO1380
1300 PRINT"  ":PRINT" DU STIMMST UM 99,9% MIT BLASK      UEBEREIN!":GOTO1500
1310 PRINT"  ":PRINT" DU BIST GENAU SON BRETT WIE HILMAR!":GOTO1500
1320 PRINT"  ":PRINT" DU KANNST MIR MAL AM SACK KRAUELN!":GOTO1500
1330 PRINT"  ":PRINT" DU HAST NE VISAGE WIE NASENSCHLEIM!":GOTO1500
1340 PRINT"  ":PRINT" MEHR WERT ALS SCHEISSE  BIST DU AUCH NICHT!":GOTO1500
1350 PRINT"  ":PRINT" GENAU SON SAEUFER WIE HARALD JUNKE.":GOTO1500
1360 PRINT"  ":PRINT" DU BIST NE STINKREICHE SAU!":GOTO1500
1370 PRINT"  ":PRINT" WIE EIN BETTLER IN DER BAECKERSTR.":GOTO1500
1380 PRINT:PRINT" DU BIST WIE JEDER BEHINDERTE!"
1500 GETM$:IFM$=""THEN1500
1740 PRINT"[147]"
1750 PRINT:PRINT" DRUECKE EINE TASTE WENN DU DICH VON "
1760 PRINT:PRINT" EINEM WORT BELEIDIGT FUEHLST!"
1770 FORX=1TO4000:NEXTX
1780 D=100
1790 PRINT:PRINT" DUMMERCHEN!"
1800 GOSUB24000
1810 PRINT:PRINT" PADDEL!"
1820 GOSUB24000
1830 PRINT:PRINT" NIETE!"
1840 GOSUB24000
1850 PRINT:PRINT" TOEFFEL!"
1860 GOSUB24000
1870 PRINT:PRINT" ARSCH!"
1880 GOSUB24000
1890 PRINT:PRINT" SCHLEIMARSCH!"
1900 GOSUB24000
1910 PRINT:PRINT" FETTE SAU!"
1920 GOSUB24000
1930 PRINT:PRINT" FEIGES SCHWEIN!"
1940 GOSUB24000
1950 PRINT:PRINT" WIXER!"
1960 GOSUB24000
1970 PRINT:PRINT" HOMO!"
1980 GOSUB24000
1990 PRINT:PRINT" DRECKSSCHWEIN!"
2000 GOSUB24000
2010 PRINT:PRINT" KIFFER!"
2020 GOSUB24000
2030 PRINT:PRINT" KANACKE!"
2040 GOSUB24000
2050 PRINT:PRINT" JUDE!"
2060 GOSUB24000
2070 PRINT:PRINT" BASTARD!"
2080 GOSUB24000
2090 PRINT:PRINT" SAEUGLING!"
2100 GOSUB24000
2110 PRINT:PRINT" SCHEISSHAUFEN!"
2120 GOSUB24000
2130 PRINT:PRINT" FUCKER!"
2140 GOSUB24000
2150 PRINT:PRINT" MIRKO FRANKE!"
2160 GOSUB24000
2170 PRINT:PRINT" UWE BLASK!"
2180 GOSUB24000
2190 PRINT:PRINT" GONZALES!"
2200 GOSUB24000
2210 PRINT:PRINT" SCHLEIMIGES DRECKIGES ARSCHLOCH!"
2220 GOSUB24000
2230 PRINT:PRINT" GOETZGI!"
2240 GOSUB24000
2250 PRINT:PRINT" ";QW$;"!"
2260 GOSUB24000
2270 PRINT:PRINT" AETSCH!"
2280 GOSUB24000
2290 FORX=1TO1000:NEXTX
2300 PRINT"[147]":POKE53281,0
2310 IFD=0 THEN PRINT:PRINT" ENTWEDER DU HAST WEGGEGUCKT,ODER KANNST"
2320 IFD=0 THEN PRINT" KANNST NICHT LESEN."
2330 IFD=4 THEN PRINT:PRINT" ALSO WEISST DU DASS DU WIEDERLICH BIST?"
2340 IFD>4 AND D<28 THEN PRINT:PRINT" ICH KANN DICH VERSTEHEN!"
2350 IFD=28 THEN PRINT:PRINT" WIESO? DU BIST DOCH EIN FUCKER!"
2360 IFD=32 THEN PRINT:PRINT" GIEBS' ZU! DU STINKST DOCH GENAU SO!"
2370 IFD=36 THEN PRINT:PRINT" ICH HAB DOCH GESTERN GESEHEN,WIE DU"
2380 IFD=36 THEN PRINT:PRINT" NOCH AN MAMIS TITTE GELUTSCHT HAST!"
2390 IFD>36 AND D<56 THEN PRINT:PRINT" STIMMT DOCH!"
2400 IFD=56 THEN PRINT:PRINT" STIMMT DOCH! DU WAESCHT DICH JA NIE!!!"
2410 IFD=60 THEN PRINT:PRINT" HOMO-HOMO-HOMO-HOMO-HOMO-HOMO-HOMO-HOMO-HOMO"
2420 IFD=64 THEN PRINT:PRINT" WAS MACHST DU DENN SONST DA?"
2430 IFD=68 THEN PRINT:PRINT" WENN DU NICHT SO FEIGE WAERST HAETTEST"
2440 IFD=68 THEN PRINT:PRINT" DU FEIGES SCHWEIN JA WEITER GELESEN!!"
2450 IFD=72 THEN PRINT:PRINT" DU STINKST DOCH SCHON VOR FETTHEIT!"
2460 IFD>72 AND D<84 THEN PRINT:PRINT" ACH DAS IST DOCH DEIN GESICHT?"
2470 IFD=84 THEN PRINT:PRINT" WAR DAS SO SCHLIMM?"
2480 IFD=88 THEN PRINT:PRINT" BIST DU DENN KEINE? GUCK DOCH MAL IN"
2490 IFD=88 THEN PRINT:PRINT" DEINE UNTERHOSE!!!"
2500 IFD=92 THEN PRINT:PRINT" DU BIST WIRKLICH EIN PADDEL! GIEBS ZU!"
2505 IFD=92 THEN PRINT:PRINT" DU WOLLTEST GARKEINE TASTE DRUECKEN!!!"
2510 IFD=96 THEN PRINT:PRINT" OCH MEIN KLEINES BABY! BIST DU JETZT"
2520 IFD=96 THEN PRINT:PRINT" SO TRURIG,WEIL ICH DICH DUMMERCHEN      NANNTE?"
2530 IFD=100 THEN PRINT:PRINT" KANNST MAL WARTEN DU HASTIGE SAU?"
2540 PRINT:PRINT" DEIN EMPFINDLICHKEITSQUOTIENT:";D;"%"
2550 GETA$:IFA$=""THEN2550
2560 PRINT"[147]"
2570 PRINT:PRINT" OK ";QW$;" DU PFERDEGEBISS, DAS WARS!"
2575 PRINT:PRINT" WENN DU DEN GLEICHEN STUSS NOCH MAL"
2580 PRINT:PRINT" MACHEN WILLST,DANN MUSST DU NUR "
2590 PRINT:PRINT" BESCHEID SAGEN!WENN NICHT DANN HAU AB!"
2600 INPUT" ";FH$
2610 IF FH$="HAU AB"THEN NEW
2620 IF FH$="BESCHEID"THEN RUN
2630 GOTO 2590
24000 M=0:D=D-4
24100 M=M+1
24150 IFM=100 THENRETURN
24200 GETN$:IFN$=""THEN GOTO24100
24300 GOTO 2300